home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_25947.txt < prev    next >
Text File  |  1990-08-14  |  5KB  |  225 lines
  1. -- background: 25947 from stack: in
  2. -- bmap block id: 26165
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Teacher Details tabs
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global checkLoc1,checkLoc2,checkLoc3,teacherName
  9.   put 1 into checkLoc1
  10.   put 1 into checkLoc2
  11.   put 1 into checkLoc3
  12.   if (card field "First Name" of first card of this bg is empty) AND (card field "Last Name" of first card of this bg is empty) then
  13.     put empty into teacherName
  14.   end if
  15. end openBackground
  16.  
  17. on doMenu menuItem
  18.   lock screen
  19.   if menuItem contains "About" then
  20.     resetFields
  21.     restoreMenuBar
  22.     go to card "Teacher Details" of background "About"
  23.     unlock screen with zoom close
  24.   else if menuItem is "Home" then
  25.     resetFields
  26.     restoreMenuBar
  27.     go home
  28.   else if menuItem contains "Quit" then
  29.     resetFields
  30.     restoreMenuBar false
  31.     go to card "Mac School¬Æ Shell"
  32.     unlock screen with zoom close
  33.   end if
  34. end doMenu
  35.  
  36. on resetFields
  37.   lock screen
  38.   set cursor to watch
  39.   push card
  40.   go to first card of this background -- Personal tab
  41.   repeat with fieldNum = 1 to the number of card fields
  42.     put empty into card field fieldNum
  43.   end repeat
  44.   click at the loc of button "Male"
  45.   put "NA" into card field "Home Language"
  46.   put "NA" into card field "Ethnic Category"
  47.   go to next card -- Miscellaneous tab
  48.   repeat with fieldNum = 1 to the number of card fields
  49.     put empty into card field fieldNum
  50.   end repeat
  51.   repeat with buttonNum = 1 to the number of buttons
  52.     set hilite of button buttonNum to false
  53.   end repeat
  54.   go to next card -- Department tab
  55.   put "NA" into card field "Department"
  56.   put "Unassigned" into card field "Room #"
  57.   go to next card -- Scheduler course preferences tab
  58.   repeat with lineNum = 1 to 30
  59.     put "0" into line lineNum of card field "Course Preference"
  60.   end repeat
  61.   put "1" into card field "Maximum"
  62.   go to next card -- Scheduler room preferences tab
  63.   put "Any Room" into card field "Rooms"
  64.   pop card
  65.   unlock screen
  66. end resetFields
  67.  
  68.  
  69.  
  70. -- part 1 (button)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=31 top=37 right=58 bottom=140
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: TD Personal
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   go to card short name of target
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 2 (button)
  90. -- low flags: 00
  91. -- high flags: 0000
  92. -- rect: left=143 top=37 right=58 bottom=254
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: TD Miscellaneous
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   global teacherName
  104.   if short name of this card is not short name of me then
  105.     lock screen
  106.     go to card short name of target
  107.     if teacherName is not empty then
  108.       put teacherName into field "teacher"
  109.     else put "name not defined" into field "teacher"
  110.     unlock screen
  111.     tabKey
  112.   end if
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 3 (button)
  118. -- low flags: 00
  119. -- high flags: 0000
  120. -- rect: left=257 top=37 right=58 bottom=366
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: TD Department
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   global teacherName
  132.   if short name of this card is not short name of me then
  133.     lock screen
  134.     go to card short name of target
  135.     if teacherName is not empty then
  136.       put teacherName into field "teacher"
  137.     else put "name not defined" into field "teacher"
  138.     set the scroll of card field "Rooms" to 0
  139.     unlock screen
  140.   end if
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 4 (button)
  146. -- low flags: 00
  147. -- high flags: 0000
  148. -- rect: left=369 top=37 right=58 bottom=480
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: TD Scheduler
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   global teacherName
  160.   if short name of this card is not short name of me then
  161.     lock screen
  162.     go to card short name of target
  163.     if teacherName is not empty then
  164.       put teacherName into field "teacher"
  165.     else put "name not defined" into field "teacher"
  166.     unlock screen
  167.   end if
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 5 (button)
  173. -- low flags: 00
  174. -- high flags: A003
  175. -- rect: left=147 top=303 right=324 bottom=250
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Cancel
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   pop card
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 6 (button)
  192. -- low flags: 00
  193. -- high flags: A003
  194. -- rect: left=267 top=303 right=325 bottom=370
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Done
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   lock screen
  206.   resetFields
  207.   pop card
  208.   unlock screen
  209. end mouseUp
  210.  
  211.  
  212.  
  213. -- part 7 (field)
  214. -- low flags: 01
  215. -- high flags: 0000
  216. -- rect: left=85 top=63 right=81 bottom=487
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: Teacher
  225.